10 POKE53280,0:POKE53281,0:POKE646,3
20 POKE53272,PEEK(53272)OR2
30 GOSUB1110
40 PRINT"   [207]PTIONS:
50 [153]"             1WAIT STR$ISK FILE.
60 PRINT"             2[146] [205]EMORY.
70 [161]D$:[139]D$[178]""[167]70
80 D[178][197](D$):[139]D[179]1[176]D[177]2[167]70
90 [153]"   CHR$RAB:
100 PRINT"          1[146] [211]ET#0 [213]PPERCASE/[199]RAPHICS."
110 PRINT"          2[146] [211]ET#1 [204]OWER/[213]PPERCASE."
120 GETG$:IFG$=""THEN120
130 G=VAL(G$):IFG<1ORG>2THEN120
140 GOSUB1110
150 INPUT" [206]AME FOR NEW [199][197][207][211] FONT";M$
160 IFG=2THENF=2048
170 IFD=2THEN490
180 PRINT"[147]  [201]NSERT [196]ISK [215]ITH [198][207][206][212] [198]ILE IN DRIVE:"
190 GETA$:IFA$=""THEN190
200 PRINT"[147]  [215]HEN LISTING REACHES [198][207][206][212] TO EDIT,"
210 PRINT"               [200]IT A [203]EY."
220 OPEN15,8,15
230 OPEN1,8,0,"$"
240 GET#1,A$,A$
250 GET#1,A$,A$
260 IFA$=""THEN380
270 GET#1,A$,A$
280 GET#1,A$
290 IFA$=CHR$(34)THENT=T+1
300 IFA$=CHR$(34)ORT<>1THEN320
310 D$=D$+A$
320 IFA$=""THEN340
330 GOTO280
340 PRINTD$
350 GETA$:IFA$<>""THEN380
360 D$="":T=0
370 GOTO250
380 CLOSE1:CLOSE15
390 PRINT"[205]OVE CURSOR TO SELECTION, [200]IT [210][197][212][213][210][206][146]"
400 INPUTN$
410 OPEN3,8,8,N$+",P,R"
420 E=12288
430 POKE780,1:POKE781,8:POKE782,0
440 SYS65466
450 POKE780,0:POKE781,0:POKE782,E/256
460 SYS65493
470 IFPEEK(783)AND1THENPRINT"LOAD ERROR":STOP
480 CLOSE3:GOTO510
490 B=16384*(3-PEEK(56576)AND3)
500 E=B+(PEEK(53272)AND12)*1024+F
510 DIMA$(9,97)
520 PRINT"[147] [201]NSERT [199][197][207][211] [196]ISK WITH <SWAP> IN [196]RIVE:"
530 PRINT"               [200]IT [210][197][212][213][210][206] [146]"
540 GETA$:IFA$=""THEN540
550 PRINT"             [208]LEASE WAIT....
560 [159]1,8,15,"I:0":[159]2,8,2,"#0"
570 T[178]18:S[178]1
580 [152]1,"U1";2;0;T;S
590 [161]#2,T$,S$
600 T[178][198](T$[170][199](0)):S[178][198](S$[170][199](0))
610 [129]I[178]0[164]7
620 [152]1,"B-P";2;32[172]I[170]2
630 [161]#2,Z$,P$,Q$
640 [139]Z$[178]""[167]670
650 [161]#2,X$
660 [139][198](X$)[178]60[167]710
670 [130]I
680 [139]T[179][177]0[167]580
690 [160]1:[160]2
700 [153]"LOAD    <SWAP> NOT ON DISK.":[137]520
710 T[178][198](P$[170][199](0)):S[178][198](Q$[170][199](0))
720 [152]1,"U1";2;0;T;S
730 [152]1,"B-P";2;22
740 [161]#2,T$,S$
750 T[178][198](T$[170][199](0)):S[178][198](S$[170][199](0))
760 [129]J[178]0[164]97:A$(0,J)[178][199](0):[130]J
770 [129]I[178]1[164]8
780 [129]J[178]0[164]63
790 A$(I,J)[178][199]([194](E[170]8[172](J[170]32)[170]I[171]1)):[130]J
800 A$(I,64)[178][199]([194](E[170]512[170]I[171]1))
810 [129]J[178]65[164]90
820 A$(I,J)[178][199]([194](E[170]8[172](J[171]64)[170]I[171]1)):[130]J
830 [129]J[178]91[164]97
840 A$(I,J)[178][199](0):[130]J
850 [130]I
860 [129]J[178]0[164]97
870 A$(I,J)[178][199](0)
880 [130]J
890 P[178]204:J[178]0:I[178]0
900 [152]1,"U1";2;0;T;S
910 [161]#2,T$,S$
920 [152]1,"B-P";2;P
930 [152]2,A$(I,J);
940 J[178]J[170]1:[139]J[178]98[167]J[178]1:I[178]I[170]1
950 [139]I[178]10[167][152]1,"U2"2;0;T;S:[137]1010
960 P[178]P[170]1:[139]P[179]256[167]930
970 P[178]2
980 [152]1,"U2";2;0;T;S
990 T[178][198](T$[170][199](0)):S[178][198](S$[170][199](0))
1000 [137]900
1010 [152]1,"R0:"[170]M$[170]"=<SWAP>"
1020 [153]"LOAD          LENONVERSION  LENOMPLETE"
1030 [153]"           (null)EBOOT CHR$VAL(null)(null)? ((null)/(null)) WAIT"
1040 [161]A$:[139]A$[178]""[167]1040
1050 [139]A$[178]"N"[167][158]64738
1060 [160]1:[160]2
1070 [153]"LOAD    (null)LACE CHR$VAL(null)(null) PEEKOOTDISK IN STR$RIVE.
1080 PRINT"          [200]IT [210][197][212][213][210][206] [146]"
1090 GETA$:IFA$=""THEN1090
1100 IFA=0THENA=1:LOAD"GEOS",8,1
1110 PRINT"[147]                              [146]"
1120 PRINT"          [146] [195]OMMODORE TO [199][197][207][211]  [146]"
1130 PRINT"                              [146]"
1140 PRINT"             [198][207][206][212] [199][210][193][194][194][197][210]     [146]"
1150 PRINT"                              [146]"
1160 PRINT"   [195]OPYRIGHT 1988 [195][207][205][208][213][212][197]! [208]UB., [201]NC."
1170 PRINT"          [193]LL [210]IGHTS [210]ESERVED"
1180 RETURN
55554 END
55555 OPEN15,8,15,"S0:FONT GRABBER":CLOSE15
55556 SAVE"FONT GRABBER",8:VERIFY"FONT GRABBER",8
55557 PRINT"    [164][164][164][164][164][164][164][164][164][164][164][164][164][164]
55558 [153]"    'FONT GRABBER'WAIT EST RE-SAUVE !!
55559 END